Developer CD Series 1998 August: Tool Chest/Dev.CD Aug 98 TC.toast/Tool Chest/Testing & Debugging/Mac OS Development Toolkit/Automation Essentials 2.3.0/Host Automation Folder/VU External Tool libs/FileToolHost.vuLib

Text File | 1998-03-19 | 16.7 KB | 510 lines | [TEXT/MPS ]

#
# ****************************************************************************
#
#    File Name:        FileToolHost.vulib
#
#    Contains:    The tool definition along with the high level tasks to access
#                the tool's services
#
#    Written by:    P. Nagarajan
#
#    Copyright:    © 1993-1997 by Apple Computer, Inc., all rights reserved.
#
# ****************************************************************************
#            C h a n g e        H i s t o r y (most recent first):
# ****************************************************************************
#
#        Vers      Date        Author        Description
#        ----    --------    ------    ---------------------------------------------
#        2.2.2    02/04/97    JAS        Added 'vers' resources to library.
#                                    These should always match tool version when tool is revved.
#                02/04/97    JAS        Added task InitFindFolderGlobalsHost()
#         <1>     2/23/96    JC        first checked in (Created to support TRACS output data).
#         <2>      2/1/95    RV        change FileExists return value from integer to boolean symbol
#                 3/26/93    NAGA    xxx put comment here xxx
#
#    To Do:
#################################################################################
tool FileToolHost s:'FILE'
begin
    # Services specific to FileToolHost:

        # To create a file
    Service    "Create"( 'string', 'string', 'string' ) return 'integer';
    # First parameter is the full pathname for the file
    # Second parameter is the 4 character creator type ( eg., 'MPS ')
    # Third parameter is the 4 character file type (eg., 'TEXT')
    # Return value is the file reference number for future calls

    # To create a folder
    Service    "CreateFolder"( 'string' ) return 'integer';
    # First parameter is the full pathname for the file
    # Return value is the file reference number for future calls

    # To delete a file/folder
    Service    "Delete"( 'string', 'integer' );
    # First parameter is the full pathname for the file (can be '', if second
    # parameter is given non zero value)
    # Second parameter if non-zero is the file reference previously
    # returned by the tool
    # Once a file/folder is deleted its reference number is no longer valid

    # To erase the contents of the data fork of a file
    Service    "Erase"( 'string', 'integer' ) return 'integer';
    # First parameter is the full pathname for the file (can be '', if second
    # parameter is given non zero value)
    # Second parameter if non-zero is the file reference previously
    # returned by the tool

    # To check if a file exists
    Service    "FileExists"( 'string' ) return 'symbol';
    # First parameter is the full pathname for the file (can be '', if second
    # parameter is given non zero value)
    # Return value is 1 if file exists else 0

    # To copy a file
    Service    "CopyFile"( 'string', 'integer', 'string' ) return 'integer';
    # First parameter is the full pathname for the file (can be '', if second
    # parameter is given non zero value)
    # Second parameter if non-zero is the file reference previously
    # returned by the tool. This can be zero if the first parameter
    # is fully specified.
    # Third parameter is the full pathname for the new file
    # Return value is 1 if file copied else 0

    # To get back memory in the FileTool heap
    Service    "ForgetFile"( 'string', 'integer' ) return 'integer';
    # First parameter is the full pathname for the file (can be '', if second
    # parameter is given non zero value)
    # Second parameter if non-zero is the file reference previously
    # returned by the tool
    # Return value is insignificant

    # To move a file/folder
    Service    "Move"( 'string', 'integer', 'string' ) return 'integer';
    # First parameter is the full pathname for the file (can be '', if second
    # parameter is given non zero value)
    # Second parameter if non-zero is the file reference previously
    # returned by the tool
    # Third parameter is the new file path name
    # Return value is the file reference number for future calls

    # To read from a file a specified number of characters
    Service    "Read"( 'string', 'integer', 'integer', 'integer' ) return 'string';
    # First parameter is the full pathname for the file (can be '', if second
    # parameter is given non zero value)
    # Second parameter if non-zero is the file reference previously
    # returned by the tool
    # Third parameter is the number of characters to be read
    # Fourth parameter is the number of characters from start of file after
    # which to start reading
    # Return value is the string read from the file

    # To read from a file until a specified character is seen
    Service    "ReadUntil"( 'string', 'integer', 'string', 'integer' ) return 'string';
    # First parameter is the full pathname for the file (can be '', if second
    # parameter is given non zero value)
    # Second parameter if non-zero is the file reference previously
    # returned by the tool
    # Third parameter is the single character string that indicates the
    # character until which the contents of a file has to be read
    # Fourth parameter is the number of characters from start of file after
    # which to start reading
    # Return value is the string read from the file

    # To rename a file/folder
    Service    "Rename"( 'string', 'integer', 'string' ) return 'integer';
    # First parameter is the full pathname for the file (can be '', if second
    # parameter is given non zero value)
    # Second parameter if non-zero is the file reference previously
    # returned by the tool
    # Third parameter is the new file name (not a path name)
    # Return value is the file reference number for future calls

    # To get back the list of mounted volume names
    Service    "VolumeList"() return 'list';

    # To write to the data fork of a file
    Service    "Write"( 'string', 'integer', 'string' ) return 'integer';
    # First parameter is the full pathname for the file (can be '', if second
    # parameter is given non zero value)
    # Second parameter if non-zero is the file reference previously
    # returned by the tool
    # Third parameter is the text to be appended to (written at the end
    # of) the file specified by the first two parameters
    # Return value is the file reference number for future calls

    # To append the second file to the first, both must be text files
    Service    "AppendFile"( 'string', 'string' ) return 'symbol';

    # To locate the special folders defined by the system
    Service    "FindFolder"( 'string' ) return 'string';
    # First parameter is the four character code for the folder, the FolderType
    # The full path name to the folder is returned

    # Read the short & long version string from the specified file
    Service    "ReadVersion"( 'string', 'integer' ) return 'list';

    # Test if a resource exists within a specified file
    Service    "ResourceExists"( 'string', 'string', 'integer' ) return 'symbol';
    # Return value is true if the resource exists.

    # Read the 'SIZE' resource from an application file
    Service    "ReadSizeResource"( 'string', 'integer' ) return 'list';
    # First parameter is the full pathname of the application
    # Second parameter is the ID of the 'SIZE' resource to be read
    # Returns the preferred and minimum memory partitions (in bytes)

    # Services common to all Virtual User external tools:
    Service "Initialize"( 'undefined' ); # pass TRUE for target, FALSE for host
     Service "Cancel"( 'string' );
    Service "GetToolServices"() return 'list';
    Service "GetToolVersion"() return 'list';
    Service "ServiceSupported"( 'string' ) return 'undefined';
    Service "Quit"();

end;

task CreateFileHost( pFilePathName, pSignature := 'MPS ', pType := 'TEXT' )
begin
    return FileToolHost( "Create", pFilePathName, pSignature, pType );
end;

task CreateFolderHost( pFolderPathName )
begin
    return FileToolHost( "CreateFolder", pFolderPathName );
end;

task DeleteFileHost( pFileReference )
begin
    if( typeOf( pFileReference ) = 'integer' )
    begin
        tFilePathStr := '';
        tFileReferenceNumber := pFileReference;
    end;
    else if( typeOf( pFileReference ) = 'string' )
    begin
        tFilePathStr := pFileReference;
        tFileReferenceNumber := 0;
    end;
    else
        return -50;#gParamError = -50, same as what the tool returns

    # Now call the tool with tFilePathStr, tFileReferenceNumber as parameters
    return FileToolHost( "Delete", tFilePathStr, tFileReferenceNumber );

end;

# This task will empty the contents of the specified file (dataFork only)
# the file will not be deleted
task EraseFileHost( pFileReference )
begin
    if( typeOf( pFileReference ) = 'integer' )
    begin
        tFilePathStr := '';
        tFileReferenceNumber := pFileReference;
    end;
    else if( typeOf( pFileReference ) = 'string' )
    begin
        tFilePathStr := pFileReference;
        tFileReferenceNumber := 0;
    end;
    else
        return -50;#gParamError = -50, same as what the tool returns

    # Now call the tool with tFilePathStr, tFileReferenceNumber as parameters
    return FileToolHost( "Erase", tFilePathStr, tFileReferenceNumber );

end;

task FileExistsHost( pFilePathName )
begin
    if( typeOf( pFilePathName ) <> 'string' )
    begin
        return -50;#gParamError = -50, same as what the tool returns
    end;

    # Now call the tool with pFilePathName as parameter
    return FileToolHost( "FileExists", pFilePathName );

end;

task FileCopyHost( pFileReference, pDestPathName )
begin
    if( typeOf( pFileReference ) = 'integer' )
    begin
        tFilePathStr := '';
        tFileReferenceNumber := pFileReference;
    end;
    else if( typeOf( pFileReference ) = 'string' )
    begin
        tFilePathStr := pFileReference;
        tFileReferenceNumber := 0;
    end;
    else
        return -50;#gParamError = -50, same as what the tool returns

    # Now call the tool with tFilePathStr, tFileReferenceNumber and pDestPathName as parameters
    return FileToolHost( "CopyFile", tFilePathStr, tFileReferenceNumber, pDestPathName );

end;

# This task will free up memory in the FileTool
# the file will not be touched or affected in any way
task ForgetFileHost( pFileReference )
begin
    if( typeOf( pFileReference ) = 'integer' )
    begin
        tFilePathStr := '';
        tFileReferenceNumber := pFileReference;
    end;
    else if( typeOf( pFileReference ) = 'string' )
    begin
        tFilePathStr := pFileReference;
        tFileReferenceNumber := 0;
    end;
    else
        return -50;#gParamError = -50, same as what the tool returns

    # Now call the tool with tFilePathStr, tFileReferenceNumber as parameters
    return FileToolHost( "ForgetFile", tFilePathStr, tFileReferenceNumber );

end;

task MoveFileHost( pFileReference, pNewPathName )
begin
    if( typeOf( pFileReference ) = 'integer' )
    begin
        tFilePathStr := '';
        tFileReferenceNumber := pFileReference;
    end;
    else if( typeOf( pFileReference ) = 'string' )
    begin
        tFilePathStr := pFileReference;
        tFileReferenceNumber := 0;
    end;
    else
        return -50;#gParamError = -50, same as what the tool returns

    # Now call the tool with tFilePathStr, tFileReferenceNumber and pNewPathName as parameters
    return FileToolHost( "Move", tFilePathStr, tFileReferenceNumber, pNewPathName );

end;

task RenameFileHost( pFileReference, pNewName )
begin
    if( typeOf( pFileReference ) = 'integer' )
    begin
        tFilePathStr := '';
        tFileReferenceNumber := pFileReference;
    end;
    else if( typeOf( pFileReference ) = 'string' )
    begin
        tFilePathStr := pFileReference;
        tFileReferenceNumber := 0;
    end;
    else
        return -50;#gParamError = -50, same as what the tool returns

    # Now call the tool with tFilePathStr, tFileReferenceNumber and pNewName as parameters
    return FileToolHost( "Rename", tFilePathStr, tFileReferenceNumber, pNewName );

end;

task VolumeListHost()
begin

    # Now call the tool
    return FileToolHost( "VolumeList" );

end;

# a utility task used by WriteToFile
task ToText( pData )
begin
    if( typeOf( pData ) = 'string' ) return pData;
    if( typeOf( pData ) = 'integer' ) return NumToStr( pData );
    return undefined; # else
end;

# This task will append pData to end of the specified file
# pData can a string or a list of strings and numbers
task WriteToFileHost( pFileReference, pData )
begin
    tText := '';
    if( typeOf( pFileReference ) = 'integer' )
    begin
        tFilePathStr := '';
        tFileReferenceNumber := pFileReference;
    end;
    else if( typeOf( pFileReference ) = 'string' )
    begin
        tFilePathStr := pFileReference;
        tFileReferenceNumber := 0;
    end;
    else
        return -50;#gParamError = -50, same as what the tool returns

    if( typeOf( pData ) = 'list' )
    begin
        for i := 1 to card pData
        begin
            tNext := ToText( pData[i] );
            if( tNext )
                tText := tText + tNext;
            else
                return -50;
        end;
    end;
    else if( typeOf( pData ) = 'string' )
    begin
        tText := pData;
    end;
    else
        return -50;#gParamError = -50, same as what the tool returns

    # Now call the tool with tFilePathStr, tFileReferenceNumber and tText as parameters
    return FileToolHost( "Write", tFilePathStr, tFileReferenceNumber, tText );

end;


task ReadHost( pFileReference, pNumOfCharacters, pFromPosition := 0 )
begin
    if( typeOf( pFileReference ) = 'integer' )
    begin
        tFilePathStr := '';
        tFileReferenceNumber := pFileReference;
    end;
    else if( typeOf( pFileReference ) = 'string' )
    begin
        tFilePathStr := pFileReference;
        tFileReferenceNumber := 0;
    end;
    else
        return -50;#gParamError = -50, same as what the tool returns

    # Now call the tool with tFilePathStr, tFileReferenceNumber and pNumOfCharacters as parameters
    return FileToolHost( "Read", tFilePathStr, tFileReferenceNumber, pNumOfCharacters, pFromPosition );

end;

task ReadUntilHost( pFileReference, pUntilCharacter, pFromPosition := 0 )
begin
    if( typeOf( pFileReference ) = 'integer' )
    begin
        tFilePathStr := '';
        tFileReferenceNumber := pFileReference;
    end;
    else if( typeOf( pFileReference ) = 'string' )
    begin
        tFilePathStr := pFileReference;
        tFileReferenceNumber := 0;
    end;
    else
        return -50;#gParamError = -50, same as what the tool returns

    # Now call the tool with tFilePathStr, tFileReferenceNumber and pUntilCharacter as parameters
    return FileToolHost( "ReadUntil", tFilePathStr, tFileReferenceNumber, pUntilCharacter, pFromPosition );

end;

task ReadLineHost( pFileReference, pFromPosition := 0 )
begin
    return ReadUntilHost( pFileReference, "∂n", pFromPosition );
end;




task AppendFileHost( pTargetFile, pSourceFile )
begin
    if not ( typeOf( pTargetFile ) = 'string' )
    begin
        return { -50 };#gParamError = -50, same as what the tool returns
    end;

    if not ( typeOf( pSourceFile ) = 'string' )
    begin
        return { -50 };#gParamError = -50, same as what the tool returns
    end;

    # Now call the tool with tTargetFile, tSourceFile
    x := FileToolHost( "AppendFile", pTargetFile, pSourceFile );
    return x;
end;

#########################################################################
#    task        InitFindFolderGlobalsHost()
#∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞
#    Description:    Initializes global constants for use with FindFolder
#
#    Parameters:        None
#
#    Returns:        Nothing
#
#    Example:        InitFindFolderGlobalsHost()
#
#    Assumptions:    VU 2.1
#∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞
#    History:
#        02/04/97    JAS            created
#########################################################################
task InitFindFolderGlobalsHost()
begin
    # global constants used by FindFolder:

    global kSystemFolderType            := "macs";    # the system folder
    global kDesktopFolderType            := 'desk';    # the desktop folder; objects in this folder show on the desk top.
    global kTrashFolderType                := 'trsh';    # the trash folder; objects in this folder show up in the trash
    global kWhereToEmptyTrashFolderType := 'empt';    # the "empty trash" folder; Finder starts empty from here down
    global kPrintMonitorDocsFolderType    := 'prnt';    # Print Monitor documents
    global kStartupFolderType            := 'strt';    # Finder objects (applications, documents, DAs, aliases, to...) to open at startup go here
    global kShutdownFolderType            := 'shdf';    # Finder objects (applications, documents, DAs, aliases, to...) to open at shutdown go here
    global kAppleMenuFolderType            := 'amnu';    # Finder objects to put into the Apple menu go here
    global kControlPanelFolderType        := 'ctrl';    # Control Panels go here (may contain INITs)
    global kExtensionFolderType            := 'extn';    # Finder extensions go here
    global kFontsFolderType                := 'font';    # Fonts go here
    global kPreferencesFolderType        := 'pref';    # preferences for applications go here
    global kTemporaryFolderType            := 'temp';    # the Temporary Folder inside the System folder
end;


task FindFolderHost( FolderType )
begin
    if not ( typeOf( FolderType ) = 'string' )
    begin
        return { errAEWrongParameters, undef, "Bad FolderType parameter" };
    end;

    if ( card( FolderType ) > 4 ) or ( card( FolderType ) <= 0 )
    begin
        return { errAEWrongParameters, undef, "Bad FolderType parameter" };
    end;

    x := FileToolHost( "FindFolder", FolderType );
    return x;
end;

task ReadVersionHost( FilePathName, pVersID := 1 )
begin
    x := FileToolHost( "ReadVersion", FilePathName, pVersID );
    SErr := ScriptError();
    return { x[1], x[2], x[3], SErr };
end;

task ResourceExistsHost( FilePathName, pResType, pResID )
begin
    x := FileToolHost( "ResourceExists", FilePathName, pResType, pResID );
    SErr := ScriptError();
    return { x[1], x[2], x[3], SErr };
end;

task ReadSizeResourceHost( FilePathName, pResID )
begin
    x := FileToolHost( "ReadSizeResource", FilePathName, pResID );
    SErr := ScriptError();
    return { x[1], x[2], x[3], SErr };
end;